home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gradia1a / frmtgpb.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-09-28  |  6.0 KB  |  194 lines
  1. VERSION 5.00
  2. Object = "{30079C83-7468-11D3-9D68-E69F60B76447}#8.0#0"; "TGPB.ocx"
  3. Begin VB.Form TGPB 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "   Demostration of Tmax Gradiant Progress Bar"
  6.    ClientHeight    =   3390
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   5055
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3390
  16.    ScaleWidth      =   5055
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CommandButton cmdExit 
  20.       Caption         =   "E&xit"
  21.       Height          =   375
  22.       Left            =   2400
  23.       TabIndex        =   8
  24.       Top             =   1200
  25.       Width           =   2535
  26.    End
  27.    Begin TPB.TGPB TGPB2 
  28.       Height          =   495
  29.       Left            =   2400
  30.       TabIndex        =   7
  31.       Top             =   480
  32.       Width           =   615
  33.       _ExtentX        =   1085
  34.       _ExtentY        =   873
  35.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.          Name            =   "MS Sans Serif"
  37.          Size            =   9.75
  38.          Charset         =   0
  39.          Weight          =   700
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       ForeColor       =   65280
  45.       BorderStyle     =   0
  46.       Display         =   0   'False
  47.       Orientation     =   0   'False
  48.    End
  49.    Begin VB.TextBox txtFont 
  50.       Appearance      =   0  'Flat
  51.       BorderStyle     =   0  'None
  52.       Height          =   975
  53.       Left            =   2280
  54.       MultiLine       =   -1  'True
  55.       TabIndex        =   3
  56.       Text            =   "FrmTGPB.frx":0000
  57.       Top             =   120
  58.       Width           =   2655
  59.    End
  60.    Begin VB.CommandButton cmdLoad 
  61.       Caption         =   "&Load"
  62.       Height          =   375
  63.       Left            =   120
  64.       TabIndex        =   2
  65.       Top             =   1200
  66.       Width           =   2055
  67.    End
  68.    Begin VB.ComboBox cboFont 
  69.       Height          =   315
  70.       Left            =   120
  71.       Sorted          =   -1  'True
  72.       TabIndex        =   1
  73.       Top             =   120
  74.       Width           =   2055
  75.    End
  76.    Begin TPB.TGPB TGPB1 
  77.       Height          =   495
  78.       Left            =   120
  79.       TabIndex        =   0
  80.       Top             =   600
  81.       Width           =   2055
  82.       _ExtentX        =   3625
  83.       _ExtentY        =   873
  84.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  85.          Name            =   "MS Sans Serif"
  86.          Size            =   9.75
  87.          Charset         =   0
  88.          Weight          =   700
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       ForeColor       =   65535
  94.    End
  95.    Begin TPB.TGPB TGPB 
  96.       Height          =   495
  97.       Index           =   2
  98.       Left            =   0
  99.       TabIndex        =   6
  100.       Top             =   1800
  101.       Width           =   5055
  102.       _ExtentX        =   8916
  103.       _ExtentY        =   873
  104.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  105.          Name            =   "MS Sans Serif"
  106.          Size            =   9.75
  107.          Charset         =   0
  108.          Weight          =   700
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       ForeColor       =   16711935
  114.       BorderStyle     =   0
  115.       Display         =   0   'False
  116.       Orientation     =   0   'False
  117.    End
  118.    Begin TPB.TGPB TGPB 
  119.       Height          =   2175
  120.       Index           =   0
  121.       Left            =   0
  122.       TabIndex        =   4
  123.       Top             =   0
  124.       Width           =   5055
  125.       _ExtentX        =   8916
  126.       _ExtentY        =   3836
  127.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  128.          Name            =   "MS Sans Serif"
  129.          Size            =   9.75
  130.          Charset         =   0
  131.          Weight          =   700
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       ForeColor       =   255
  137.       BorderStyle     =   0
  138.       Display         =   0   'False
  139.    End
  140.    Begin TPB.TGPB TGPB 
  141.       Height          =   1335
  142.       Index           =   1
  143.       Left            =   0
  144.       TabIndex        =   5
  145.       Top             =   2160
  146.       Width           =   5055
  147.       _ExtentX        =   8916
  148.       _ExtentY        =   2355
  149.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  150.          Name            =   "MS Sans Serif"
  151.          Size            =   9.75
  152.          Charset         =   0
  153.          Weight          =   700
  154.          Underline       =   0   'False
  155.          Italic          =   0   'False
  156.          Strikethrough   =   0   'False
  157.       EndProperty
  158.       ForeColor       =   33023
  159.       BorderStyle     =   0
  160.       Display         =   0   'False
  161.       Orientation     =   0   'False
  162.    End
  163. Attribute VB_Name = "TGPB"
  164. Attribute VB_GlobalNameSpace = False
  165. Attribute VB_Creatable = False
  166. Attribute VB_PredeclaredId = True
  167. Attribute VB_Exposed = False
  168. Private Sub cboFont_Change()
  169. txtFont.FontName = cboFont.List(cboFont.ListIndex)
  170. End Sub
  171. Private Sub cboFont_Scroll()
  172. txtFont.FontName = cboFont.List(cboFont.ListIndex)
  173. End Sub
  174. Private Sub cmdExit_Click()
  175. End Sub
  176. Private Sub cmdLoad_Click()
  177. Dim i%, fc%
  178. fc% = Screen.FontCount
  179. cboFont.Clear
  180. TGPB1.Cls
  181. For i% = 0 To fc% - 1
  182.     cboFont.AddItem Screen.Fonts(i%)
  183.     TGPB1.ShowProgress i% / fc% * 100
  184. Next i%
  185. cboFont.ListIndex = 0
  186. txtFont.FontSize = 12
  187. End Sub
  188. Private Sub Form_Load()
  189. TGPB(0).ShowProgress 100
  190. TGPB(1).ShowProgress 100
  191. TGPB(2).ShowProgress 100
  192. TGPB2.ShowProgress 100
  193. End Sub
  194.